Code
customer_cohortdata_tbl <- read_rds("data/shortsynth_customer_cohort_data_tbl.rds")
customer_cohortdata_tbl |> glimpse()Rows: 5,000
Columns: 5
$ customer_id <chr> "SFC202001_0001", "SFC202001_0002", "SFC202001_0003", …
$ cohort_qtr <chr> "2020 Q1", "2020 Q1", "2020 Q1", "2020 Q1", "2020 Q1",…
$ cohort_ym <chr> "2020 01", "2020 01", "2020 01", "2020 01", "2020 01",…
$ first_tnx_date <dttm> 2020-01-01 02:15:58, 2020-01-01 00:40:17, 2020-01-01 …
$ total_tnx_count <int> 3, 9, 1, 2, 5, 1, 4, 6, 2, 4, 1, 11, 3, 3, 1, 1, 11, 3…
Code
customer_transactions_tbl <- read_rds("data/shortsynth_transaction_data_tbl.rds")
customer_transactions_tbl |> glimpse()Rows: 29,454
Columns: 7
$ customer_id <chr> "SFC202001_0002", "SFC202001_0001", "SFC202001_0004", "S…
$ tnx_timestamp <dttm> 2020-01-01 00:40:17, 2020-01-01 02:15:58, 2020-01-01 18…
$ tnx_dow <fct> Wed, Wed, Wed, Wed, Thu, Thu, Thu, Thu, Thu, Thu, Thu, F…
$ tnx_month <fct> Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, Jan, J…
$ tnx_week <chr> "00", "00", "00", "00", "00", "00", "00", "00", "00", "0…
$ invoice_id <chr> "T20200101-0001", "T20200101-0002", "T20200101-0003", "T…
$ tnx_amount <dbl> 51.73, 139.05, 11.72, 88.30, 1.16, 0.95, 127.85, 35.07, …
Code
customer_subset_id <- read_rds("data/shortsynth_customer_subset_ids.rds")
customer_subset_id |> glimpse() Factor w/ 5000 levels "SFC202001_0002",..: 2 3 8 10 14 16 17 21 25 27 ...